home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1998 January: Mac OS SDK / Dev.CD Jan 98 SDK2.toast / Development Kits (Disc 2) / ScriptX / Code Samples / hotspots / nm8rlovr.sx < prev    next >
Encoding:
Text File  |  1996-05-21  |  1.0 KB  |  39 lines  |  [TEXT/ttxt]
  1. in module DemoModule
  2.  
  3. --*******************************************************************************
  4. --*        Class name:    RolloverAnimation
  5. --*                                            
  6. --*     Inherits from: Animation and Rollover                                    
  7. --*        Class type: Concrete
  8. --*         Component: User Interface
  9. --*
  10. --*       Description: This class is an example of how to mix in the Rollover class
  11. --*                    with an Animation.  The animation will play when the mouse
  12. --*                    enters its boundary and stop when it leaves.
  13. --*
  14. --*             Usage: bs := new RolloverAnimation series:<a series of bitmaps> \
  15. --*                                                scale:8
  16. --*                    
  17. --*               IVs:    none        
  18. --*
  19. --*           Methods:    init
  20. --*                    
  21. --*    Required files:    animate.sx
  22. --*                    rollover.sx
  23. --*                    
  24. --*             Notes: 
  25. --*
  26. --*            Author:    Su Quek - Kaleida Labs, Inc.
  27. --*******************************************************************************
  28. class RolloverAnimation (Animation, Rollover)
  29. end
  30.  
  31. method init self {class RolloverAnimation} #rest args ->
  32. (
  33.     apply nextmethod self args
  34.     self.enterAction := start
  35.     self.exitAction := stop
  36.     self.authordata := self
  37.  
  38.     self
  39. )